CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_32422.txt

Text File | 1990-10-02 | 7KB | 300 lines

-- card: 32422 from stack: in.03 –µ–µ–µ
-- bmap block id: 7178
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,chase,blasting
  if direction = "west" or direction = "rear" then
    go to card id 32989
    exit move
  end if
  if direction = "east" or direction = "down" or direction = "south" then
    beep
    put "Sorry, no swimming allowed in this cave." into field 3
    exit move
  end if
  if direction = "enter" then
    go to card id 31944
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  answer "Drop object onto ledge, or in the water?" with "water"or"on ledge"
  if it="water" then put "33443" into dropRoom
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=149 top=229 right=265 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=195 right=231 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=183 top=229 right=265 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=115 top=229 right=265 bottom=149
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=47 top=229 right=265 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=81 top=229 right=265 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=121 top=52 right=86 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if takeFlag then
    beep
    put "You have to get across the water to use that door!" into field 3
    put false into takeFlag
  else
    put "A ledge and doorway on the east wall, across the water." into field 3
    put false into examFlag
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=194 right=228 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if examFlag then
    put "a giant wash tub is floating here." into field 3
    put false into examFlag
    exit mouseUp
  else
    if takeFlag then
      beep
      put false into takeFlag
      put "The giant wash tub is too heavy for you to carry." into field 3
      exit mouseUp
    else
      put "enter" into direction
    end if
  end if
  send move to card id cardID
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=156 top=76 right=95 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  put false into takeFlag
  put false into examFlag
  put "The stairs leading down from the east ledge -- now covered with water." into field 3
end mouseUp



-- part contents for background part 25
----- text -----
West Ledge
(looking east)

-- part contents for background part 24
----- text -----
You are on the west ledge of the great chamber which is now flooded with water nearly to the level of the ledge.  A giant wash tub is floating in the water here.  There is a doorway to the west.




-- part contents for background part 36
----- text -----
1